20 PRINT"[147] [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191] 30 [153]" SINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSIN 40 PRINT" [191][191] [191][191] 50 [153]" SINSIN SINSIN 60 PRINT" [191][191] TURTLE GRAPHICS [191][191] 70 [153]" SINSIN VALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL SINSIN 100 PRINT" [191][191] [191][191] 110 [153]" SINSIN ENTWICKELT 8.1984 VON SINSIN 120 PRINT" [191][191] [191][191] 130 [153]" SINSIN SINSIN 140 PRINT" [191][191] P E T E R M E N K E [191][191] 150 [153]" SINSIN SINSIN 160 PRINT" [191][191] GRIFTWEG 4 [191][191] 170 [153]" SINSIN 2212 BRUNSBUETTEL SINSIN 190 PRINT" [191][191] [191][191] 200 [153]" SINSIN SINSIN 210 PRINT" [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191] 220 [153]" SINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSIN 230 PRINT" BITTE TASTE DRUECKEN" 240 GET A$:IF A$=""THEN240 250 PRINT"[147]" 260 GOSUB1000 270 : 280 : 290 REM **VARIABLE** 300 AN=49152 301 ZI=51360 310 NA$="TURTLE GR." 320 : 330 : 340 : 350 REM **** EINLESEROUTINE **** 360 S=AN:Z=1000 370 FORI=1TO16:READ X 390 IFX=-100THEN530 391 IFX<0ORX>255THEN503 400 GOSUB515:POKES,X 410 S=S+1:PR=PR+X:NEXT 440 : 460 READ X:IF PR=X THEN PR=0:Z=Z+10:GOTO 370 470 PRINT"PRUEFSUMMENFEHLER IN ZEILE"Z 475 PRINT"PRUEFSUMME DER ZEILE"Z":"PR:PRINT 480 PRINT"RICHTIGE PRUEFSUMME:"X:PRINT:PRINT 490 PRINT"LIST"Z-10"-"Z"[145][145]";:POKE631,13:POKE198,1 500 END 501 : 502 : 503 PRINT"DATENFEHLER IN ZEILE"Z 504 PRINT"ES WURDE VERSUCHT"X"ZU POKEN." 505 GOTO490 510 : 511 : 512 : 515 PRINT" ZEILE:"Z" SPEICHERSTELLE:"S 516 PRINT" EINGELESENER WERT: [157][157][157][157]"X 517 IF Z>=PEEK(63)+256*PEEK(64) THEN RETURN 518 PRINT"DATA-ZEILE FEHLT!!" 519 PRINT"ODER ZEILENNUMMERN DER DATA-ZEILEN NICHT" 520 PRINT"IN ZEHNER ABSTAENDEN":END 521 : 522 : 523 : 530 IF S=ZI THEN 539 531 PRINT"DATENANZAHL IST FALSCH":PRINT:PRINT"DAS WAERE RICHTIG :";ZI-AN 532 PRINT:PRINT"IHRE DATENANZAHL :";S-AN 537 END 539 PRINT"KEINEN FEHLER GEFUNDEN !" 540 PRINT"ABSPEICHERN (J/N) ?" 550 GET A$:IF A$="N" THEN 590 560 IF A$<>"J" THEN 550 570 INPUT"GERAETEADRESSE (1=DATASETTE/8=DISK)";GE 580 SAVE NA$+"(C)PM",GE 590 PRINT"ZUM START EINE BELIEBIGE TASTE DRUECKEN 600 [161] A$:[139] A$[178]"" [167] 600 610 [158]AN 630 : 640 : 650 : 1000 [131] 120,032,063,193,088,032,163,193,032,223,193,169,028,133,254,169,2085 1010 [131] 192,133,255,032,097,192,032,068,166,076,116,164,147,017,017,017,1721 1020 [131] 029,029,084,085,082,084,076,069,032,071,082,065,080,072,073,067,1080 1030 [131] 083,190,190,029,029,066,089,032,080,069,084,069,082,032,077,069,1270 1040 [131] 078,075,069,190,190,029,029,051,056,057,049,049,032,066,065,083,1168 1050 [131] 073,067,032,066,089,084,069,083,032,070,082,069,069,017,017,190,1109 1060 [131] 191,160,000,177,254,201,191,240,012,201,190,208,002,169,013,032,2241 1070 [131] 210,255,200,208,238,096,173,025,208,141,025,208,016,029,173,018,2223 1080 [131] 208,201,250,176,011,032,204,193,169,250,141,018,208,076,188,254,2579 1090 [131] 032,185,193,169,217,141,018,208,076,188,254,173,013,220,088,165,2340 1100 [131] 204,208,033,169,032,044,017,208,240,026,206,252,203,208,021,169,2240 1110 [131] 007,141,252,203,173,241,203,072,169,002,141,241,203,032,118,195,2393 1120 [131] 104,141,241,203,165,212,208,030,165,216,208,026,165,203,205,255,2747 1130 [131] 203,240,019,141,255,203,201,064,240,012,201,004,240,011,201,005,2240 1140 [131] 240,029,201,006,240,048,076,049,234,173,017,208,041,032,240,009,1843 1150 [131] 032,204,193,032,017,194,076,230,192,032,185,193,076,230,192,173,2251 1160 [131] 017,208,041,032,240,246,173,026,208,041,001,240,006,032,017,194,1722 1170 [131] 076,230,192,032,254,193,162,021,160,000,024,032,240,255,076,230,2177 1180 [131] 192,072,138,072,152,072,169,127,141,013,221,172,013,221,048,012,1835 1190 [131] 032,163,253,032,024,229,032,063,193,108,002,160,076,114,254,032,1767 1200 [131] 204,193,169,004,141,136,002,169,118,141,020,003,169,192,141,021,1823 1210 [131] 003,169,033,141,024,003,169,193,141,025,003,169,048,141,022,003,1287 1220 [131] 169,193,141,023,003,169,011,141,254,203,169,001,141,253,203,141,2215 1230 [131] 252,203,169,000,141,026,208,169,134,141,004,003,169,196,141,005,1961 1240 [131] 003,169,043,141,008,003,169,197,141,009,003,169,084,141,006,003,1289 1250 [131] 169,197,141,007,003,169,103,141,038,003,169,199,141,039,003,032,1554 1260 [131] 249,195,096,162,032,160,000,169,224,133,255,132,254,152,145,254,2612 1270 [131] 136,208,251,230,255,202,208,246,096,169,056,141,024,208,169,148,2747 1280 [131] 141,000,221,173,017,208,009,032,141,017,208,096,169,021,141,024,1618 1290 [131] 208,169,151,141,000,221,173,017,208,041,223,141,017,208,096,169,2183 1300 [131] 204,133,255,160,000,132,254,162,004,173,253,203,010,010,010,010,1973 1310 [131] 013,254,203,145,254,136,208,251,230,255,202,208,246,096,169,217,3087 1320 [131] 141,018,208,173,017,208,041,127,141,017,208,169,001,141,026,208,1844 1330 [131] 096,169,000,141,026,208,096,166,122,202,232,142,242,203,162,255,2462 1340 [131] 142,251,203,142,250,203,238,250,203,174,250,203,189,127,194,240,3259 1350 [131] 033,016,243,238,251,203,172,242,203,136,200,185,000,002,141,249,2514 1360 [131] 203,232,189,127,194,056,237,249,203,240,239,201,128,240,019,076,2833 1370 [131] 038,194,174,242,203,189,000,002,240,007,201,058,240,188,232,208,2416 1380 [131] 244,096,174,242,203,173,251,203,024,105,208,157,000,002,232,200,2514 1390 [131] 185,000,002,157,000,002,240,218,232,200,208,244,076,082,194,200,2240 1400 [131] 072,073,082,069,211,077,079,086,197,067,076,069,065,210,087,073,1593 1410 [131] 078,068,079,215,080,076,079,212,077,079,068,197,068,069,199,082,1726 1420 [131] 069,086,069,082,211,076,084,085,082,206,082,084,085,082,206,067,1656 1430 [131] 079,076,079,210,071,076,079,065,196,071,083,065,086,197,074,079,1586 1440 [131] 089,083,084,073,067,203,076,080,069,206,072,069,076,208,000,239,1694 1450 [131] 194,205,197,095,195,084,199,073,196,118,196,147,197,163,197,128,2584 1460 [131] 198,144,198,165,198,036,199,223,198,161,199,059,200,053,199,032,2462 1470 [131] 158,183,224,000,240,054,032,121,000,240,040,032,253,174,032,158,1941 1480 [131] 183,224,016,144,003,076,106,195,142,254,203,032,223,193,032,121,2147 1490 [131] 000,240,016,032,253,174,032,158,183,224,016,144,003,076,106,195,1852 1500 [131] 142,032,208,032,185,193,032,249,195,076,174,167,032,121,000,240,2078 1510 [131] 037,032,253,174,032,158,183,224,016,144,003,076,106,195,142,033,1808 1520 [131] 208,032,121,000,240,016,032,253,174,032,158,183,224,016,144,003,1836 1530 [131] 076,106,195,142,032,208,032,017,194,032,204,193,076,174,167,208,2056 1540 [131] 012,032,163,193,032,223,193,076,174,167,162,014,044,162,011,032,1690 1550 [131] 204,193,076,055,164,096,173,241,203,201,003,240,248,174,246,203,2720 1560 [131] 138,074,074,041,254,168,185,015,196,141,244,203,185,016,196,141,2271 1570 [131] 245,203,138,041,007,024,109,244,203,141,244,203,173,247,203,041,2466 1580 [131] 248,141,243,203,173,244,203,133,252,024,169,224,109,245,203,133,2947 1590 [131] 253,024,165,252,109,243,203,133,252,165,253,109,248,203,133,253,2998 1600 [131] 173,247,203,041,007,073,007,170,189,065,196,160,000,120,162,052,1865 1610 [131] 134,001,174,241,203,240,008,224,001,240,014,224,002,240,019,017,1982 1620 [131] 252,145,252,169,055,133,001,088,096,073,255,049,252,145,252,076,2293 1630 [131] 227,195,081,252,145,252,076,227,195,169,000,141,248,203,141,241,2793 1640 [131] 203,141,240,203,169,160,141,247,203,169,100,141,246,203,096,000,2662 1650 [131] 000,064,001,128,002,192,003,000,005,064,006,128,007,192,008,000,800 1660 [131] 010,064,011,128,012,192,013,000,015,064,016,128,017,192,018,000,880 1670 [131] 020,064,021,128,022,192,023,000,025,064,026,128,027,192,028,000,960 1680 [131] 030,001,002,004,008,016,032,064,128,032,235,183,224,200,176,035,1370 1690 [131] 165,021,201,001,144,008,208,027,165,020,201,064,176,021,120,142,1684 1700 [131] 246,203,165,020,141,247,203,165,021,141,248,203,088,032,118,195,2436 1710 [131] 076,174,167,076,106,195,032,158,183,224,004,144,003,076,106,195,1919 1720 [131] 142,241,203,076,174,167,032,023,194,166,122,160,004,132,015,189,2040 1730 [131] 000,002,141,249,203,041,240,201,208,208,006,173,249,203,076,232,2432 1740 [131] 196,173,249,203,016,007,201,255,240,062,232,208,226,201,032,240,2741 1750 [131] 055,133,008,201,034,240,086,036,015,112,045,201,063,208,004,169,1610 1760 [131] 153,208,037,201,048,144,004,201,060,144,029,132,113,160,000,132,1766 1770 [131] 011,136,134,122,202,200,232,189,000,002,056,249,158,160,240,245,2336 1780 [131] 201,128,208,048,005,011,164,113,232,200,153,251,001,185,251,001,2152 1790 [131] 240,054,056,233,058,240,004,201,073,208,002,133,015,056,233,085,1891 1800 [131] 208,141,133,008,189,000,002,240,223,197,008,240,219,200,153,251,2412 1810 [131] 001,232,208,240,166,122,230,011,200,185,157,160,016,250,185,158,2521 1820 [131] 160,208,180,189,000,002,016,190,076,009,166,032,115,000,041,240,1624 1830 [131] 201,208,240,009,032,121,000,032,237,167,076,174,167,032,121,000,1817 1840 [131] 041,015,010,168,185,208,194,133,167,185,207,194,133,166,032,115,2153 1850 [131] 000,108,166,000,016,052,201,255,240,048,036,015,048,044,141,249,1619 1860 [131] 203,041,240,201,208,208,038,173,249,203,041,015,170,232,132,073,2427 1870 [131] 160,255,200,185,127,194,016,250,202,208,247,200,185,127,194,048,2798 1880 [131] 006,032,071,171,076,123,197,076,239,166,076,243,166,173,249,203,2267 1890 [131] 076,036,167,032,158,183,224,008,144,003,076,106,195,142,240,203,1993 1900 [131] 076,174,167,208,037,162,032,169,224,133,255,160,000,132,254,120,2303 1910 [131] 169,052,133,001,177,254,073,255,145,254,136,208,247,230,255,202,2791 1920 [131] 208,242,169,055,133,001,088,076,174,167,076,109,195,032,138,173,2036 1930 [131] 032,247,183,166,020,240,008,032,236,197,198,020,076,211,197,166,2229 1940 [131] 021,240,006,198,021,198,020,208,234,076,174,167,173,240,203,240,2419 1950 [131] 029,201,002,240,034,201,004,240,039,201,006,240,044,201,001,240,1923 1960 [131] 010,201,003,240,015,201,005,240,020,208,027,032,047,198,032,093,1572 1970 [131] 198,076,118,195,032,067,198,032,047,198,076,118,195,032,056,198,1836 1980 [131] 032,067,198,076,118,195,032,093,198,032,056,198,076,118,195,173,1857 1990 [131] 246,203,240,067,206,246,203,096,173,246,203,201,199,176,056,238,2999 2000 [131] 246,203,096,173,248,203,208,009,173,247,203,240,042,206,247,203,2947 2010 [131] 096,173,247,203,208,003,206,248,203,206,247,203,096,173,248,203,2963 2020 [131] 208,009,238,247,203,208,003,238,248,203,096,174,247,203,232,224,2981 2030 [131] 064,176,004,142,247,203,096,173,237,203,208,003,076,106,195,096,2229 2040 [131] 032,158,183,138,024,109,240,203,041,007,141,240,203,076,174,167,2136 2050 [131] 032,158,183,142,249,203,173,240,203,056,237,249,203,041,007,141,2517 2060 [131] 240,203,076,174,167,032,158,183,224,016,176,048,142,253,203,032,2327 2070 [131] 223,193,032,121,000,240,034,032,253,174,032,158,183,224,016,176,2091 2080 [131] 027,142,254,203,032,223,193,032,121,000,240,013,032,253,174,032,1971 2090 [131] 158,183,224,016,176,006,142,032,208,076,174,167,076,106,195,120,2059 2100 [131] 169,052,133,001,162,032,160,000,132,254,132,166,169,224,133,255,2174 2110 [131] 169,160,133,167,177,254,145,166,136,208,249,230,255,230,167,202,3048 2120 [131] 208,242,169,055,133,001,088,032,212,225,162,000,160,192,134,254,2267 2130 [131] 169,160,133,255,169,054,133,001,169,254,032,216,255,169,055,133,2357 2140 [131] 001,076,174,167,032,212,225,169,000,133,185,162,000,160,224,032,1952 2150 [131] 213,255,076,174,167,208,026,160,000,185,128,194,240,016,016,007,2065 2160 [131] 041,127,032,210,255,169,013,032,210,255,200,076,057,199,076,174,2126 2170 [131] 167,076,109,195,032,158,183,224,000,240,006,032,254,193,076,174,2119 2180 [131] 167,032,017,194,076,174,167,072,165,154,201,003,208,008,104,201,1943 2190 [131] 135,240,006,076,022,231,076,213,241,142,249,203,166,212,208,027,2447 2200 [131] 166,216,208,023,152,072,169,021,133,214,169,000,133,211,032,108,2027 2210 [131] 229,104,168,174,249,203,169,135,024,088,096,174,249,203,076,022,2363 2220 [131] 231,032,158,183,232,142,239,203,169,001,141,237,203,165,203,201,2740 2230 [131] 003,208,008,169,000,141,237,203,076,174,167,169,000,141,238,203,2137 2240 [131] 173,000,220,041,001,208,009,032,047,198,032,034,200,238,238,203,1874 2250 [131] 173,000,220,041,002,208,009,032,056,198,032,034,200,238,238,203,1884 2260 [131] 173,000,220,041,004,208,009,032,067,198,032,034,200,238,238,203,1897 2270 [131] 173,000,220,041,008,208,009,032,093,198,032,034,200,238,238,203,1927 2280 [131] 173,238,203,208,168,032,011,200,076,173,199,173,241,203,072,169,2539 2290 [131] 002,141,241,203,032,118,195,032,047,200,032,118,195,104,141,241,2042 2300 [131] 203,096,173,000,220,041,016,208,226,032,118,195,076,047,200,172,2023 2310 [131] 239,203,162,100,202,208,253,136,208,248,096,240,003,076,109,195,2678 2320 [131] 165,203,201,003,208,003,076,174,167,173,020,208,056,233,050,144,2084 2330 [131] 239,201,200,176,235,141,246,203,173,019,208,056,233,035,144,224,2733 2340 [131] 010,141,247,203,144,007,201,064,176,214,169,001,044,169,000,141,1931 2350 [131] 248,203,173,141,002,041,004,240,012,032,118,195,032,093,198,032,1764 2360 [131] 118,195,076,064,200,173,241,203,072,169,002,141,241,203,032,118,2248 2370 [131] 195,032,118,195,104,141,241,203,076,064,200,255,255,255,255,249,2838 63000 [131] -100:[142]